function test_initialization_scorecard()
   
    L = get_testing_list();
    S = get_scorecard()
    
    mark = {'-k '; '-.b '; '--r '};
    
    
    for iii = 1:size(L, 2)
        if (size(L{iii}, 2) > 0)
            L{iii}
            A = load(L{iii});
            %R = [R; A];
            G{iii} = A;
        end
    end   
   
    % Now need to go through list and adjust the scores using your
    % mechanism
    
    close all
    H = figure
    hold on   
    xlabel('1 - precision');
    ylabel('recall');

    axis([0 1 0 1]);
    draw_gray_grid(linspace(0,1,11), linspace(0,1,11));
    
    legendShown = 0;
    
    line_name{1} = 'desktop-2';
    line_name{2} = 'indoor-2';
    line_name{3} = 'outdoor-2';
    
    for aaa = 1:min(size(G,2),3)
        
        R = G{aaa};
       
        for iii = 1:size(R, 1)
            Q = [R(iii,8) 0];
            R(iii,8) = getInitializationScore(S, R(iii,3:7));
            Q(2) = R(iii,8);
            % Q
        end


        R2 = sortrows(R, 8);

        precision = [];
        recall = [];

        hits = 0;
        misses = 0;


        for iii = 1:size(R2,1)

            if (R2(size(R2,1)-iii+1,9) == 1)
                hits = hits + 1;
            else
                misses = misses + 1;
            end

            precision = [precision (hits / (hits + misses))];
            recall = [recall ((hits + misses) / size(R2,1))];

        end

        bestP = 0.0;

        for iii = 1:size(precision,2)
            if (precision(1, size(precision,2)-iii+1) > bestP)
                bestP = precision(1, size(precision,2)-iii+1);
            end

            precision(1, size(precision,2)-iii+1) = bestP;
        end

        
        P = plot(1-precision, recall, mark{aaa}, 'LineWidth', 3);

        
        if (legendShown == 0)
            L = legend(P, line_name{aaa}, 'Location', 'SouthEast', 'Orientation', 'vertical');
            legendShown = 1;
        else
            hold on
            legend('show')
            [LEGH,OBJH,OUTH,OUTM] = legend;
            L = legend([OUTH;P],OUTM{:}, line_name{aaa}, 'Location', 'SouthEast', 'Orientation', 'vertical');
        end

        set(L,'FontSize',10);
            
        
    end
    
    %plot(1-precision, recall, '-b ', 'LineWidth', 2);
    
    
    c = clock;
    timeString = sprintf('%04d-%02d-%02d-%02d-%02d-%02.0f', c(1), c(2), c(3), c(4), c(5), c(6));
    % outputFilename = sprintf('%s/../../config/scorecard_%s.txt', mfilename('fullpath'), timeString)
    Q = mfilename('fullpath');
    aName = sprintf('%s/analysis/results/keyframe_selection_%s.pdf', Q(1:end-39), timeString)
    
    save_to_file_if_possible(H, aName);
    
end